home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / sort / numbers / fractest.e < prev    next >
Encoding:
Text File  |  1995-05-20  |  1.3 KB  |  73 lines
  1. MODULE 'oomodules/sort/numbers/fraction'
  2.  
  3. PROC main()
  4. DEF bruch_1:PTR TO fraction,
  5.     bruch_2:PTR TO fraction, zkette[80]:STRING
  6.  
  7.   NEW bruch_1.new(["set",2,3])
  8.   NEW bruch_2.new(["copy",bruch_1])
  9.  
  10.   WriteF('\s\n', bruch_1.write())
  11.   WriteF('+\n\s\n', bruch_2.write())
  12.  
  13.   bruch_1.add( bruch_2 )
  14.  
  15.   WriteF('=\n\s\n', bruch_1.write())
  16.  
  17.   bruch_1.substract( bruch_2 )
  18.  
  19.   WriteF('-\n\s\n', bruch_2.write())
  20.  
  21.   WriteF('=\n\s\n', bruch_1.write())
  22.  
  23.  
  24.  
  25.   WriteF('now multiply...\n\n')
  26.  
  27.   bruch_1.opts(["set",2,3])
  28.  
  29.   WriteF('\s\n', bruch_1.write())
  30.  
  31.   bruch_2.opts(["set",2,4])
  32.  
  33.   WriteF('*\n\s\n', bruch_2.write())
  34.  
  35.   bruch_1.multiply( bruch_2 )
  36.  
  37.   WriteF('=\n\s\n', bruch_1.write())
  38.  
  39.  
  40.  
  41.   WriteF('now divide...\n\n')
  42.  
  43.   bruch_1.opts(["set",2,3])
  44.  
  45.   WriteF('\s\n', bruch_1.write())
  46.  
  47.   bruch_2.opts(["set",2,5])
  48.  
  49.   WriteF('/\n\s\n', bruch_2.write())
  50.  
  51.   bruch_1.divide( bruch_2 )
  52.  
  53.   WriteF('=\n\s\n', bruch_1.write())
  54.  
  55.   -> now just copy
  56.  
  57.   bruch_1.opts(["set", 3,7])
  58.   bruch_1.copy( bruch_2 )
  59.  
  60.   WriteF('\s\n', bruch_1.write())
  61.   WriteF('\s\n', bruch_2.write())
  62.  
  63.   bruch_1.flt2fraction(2.25)
  64.   WriteF('\s\n', bruch_1.write())
  65.   bruch_1.flt2fraction(7.9675)
  66.   WriteF('\s\n', bruch_1.write())
  67.   bruch_1.flt2fraction(3.1415926)
  68.   WriteF('\s\n', bruch_1.write())
  69.  
  70.   RealF(zkette,bruch_1.fraction2flt(),5)
  71.   WriteF('\s\n', zkette)
  72. ENDPROC
  73.